home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / dump.inc < prev    next >
Encoding:
Text File  |  2005-03-31  |  983 b   |  44 lines
  1. # -*- Fundamental -*-
  2. #
  3. # (C) 2002 Georges Dagousset <georges.dagousset@orange.fr>
  4. # $Revision: 1.4 $
  5.  
  6.  
  7.  
  8. function hexdump(ddata)
  9. {
  10.  _z = "";
  11.  __dmaxline = strlen(ddata) / 16;
  12.  for (__dline = 0; __dline <= __dmaxline; __dline = __dline + 1) {
  13.   _z = string(_z, hex(__dline*16),":") -"0x";
  14.   for (__dcol = 0; __dcol < 16; __dcol = __dcol + 1) {
  15.    if (!__dcol % 4) _z = _z + " ";
  16.    if (__dcol + __dline * 16 < strlen(ddata))
  17.     _z = string(_z, hex(ord(ddata[__dcol + __dline * 16]))," ")-"0x";
  18.    else
  19.     _z = _z + "   ";
  20.   }
  21.   _z = _z + "   ";
  22.   for (__dcol = 0; __dcol < 16; __dcol = __dcol + 1) {
  23.    if (__dcol + __dline * 16 < strlen(ddata)) {
  24.     if(ord(ddata[__dcol + __dline * 16]) >= 32)
  25.      _z = _z + ddata[__dcol + __dline * 16];
  26.     else
  27.      _z = _z + ".";
  28.    }
  29.    else
  30.     _z = _z + "   ";
  31.   }
  32.   _z = string(_z, "\n");
  33.  }
  34.  _z = string(_z, "\n");
  35.  return (_z);
  36. }
  37.  
  38. function dump(ddata,dtitle)
  39. {
  40.  if(dtitle)display(":::",dtitle,"\n");
  41.  display(hexdump(ddata: ddata));
  42. }
  43.  
  44.